home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / Networking / Simware-Mac3270 / Simware-Mac3270 / card_20577.txt < prev    next >
Text File  |  1990-04-09  |  1KB  |  68 lines
  1. -- card: 20577 from stack: in
  2. -- bmap block id: 20887
  3. -- flags: 0000
  4. -- background id: 2748
  5. -- name: ScreenShow
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global currentTicks, flag
  9.  
  10.   put 0 into flag
  11.   put ticks() into currentTicks
  12.   add 200 to currentTicks
  13. end openCard
  14.  
  15.  
  16. on idle
  17.   global currentTicks, flag
  18.  
  19.   if flag = 0 then
  20.     if currentTicks < ticks() then
  21.       show card button "advance"
  22.       put 1 into flag
  23.     end if
  24.   end if
  25. end idle
  26.  
  27.  
  28.  
  29.  
  30. -- part 3 (field)
  31. -- low flags: 00
  32. -- high flags: 0004
  33. -- rect: left=26 top=226 right=313 bottom=205
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 1
  37. -- font id: 33
  38. -- text size: 12
  39. -- style flags: 16384
  40. -- line height: 16
  41. -- part name: 
  42.  
  43.  
  44. -- part 5 (button)
  45. -- low flags: 80
  46. -- high flags: 0003
  47. -- rect: left=34 top=94 right=144 bottom=84
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 27056 / 27056
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: advance
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.  
  59.   visual dissolve
  60.   hide card button "advance"
  61.   go to card "Navigator"
  62. end mouseUp
  63.  
  64.  
  65. -- part contents for card part 3
  66. ----- text -----
  67.  
  68. A sample 3278 screen with Function Key Bar below already mapped